home *** CD-ROM | disk | FTP | other *** search
- object ZipTest: TZipTest
- Left = 323
- Top = 267
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'MimarSinan Zip Test'
- ClientHeight = 136
- ClientWidth = 368
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Target: TFileLabel
- Left = 8
- Top = 116
- Width = 185
- Height = 17
- Direction = drFromLeft
- Separator = '\'
- end
- object Source: TFileLabel
- Left = 8
- Top = 80
- Width = 273
- Height = 17
- Direction = drFromLeft
- Separator = '\'
- end
- object Cancel: TToolbarButton97
- Left = 288
- Top = 77
- Width = 73
- Height = 22
- Caption = 'Cancel'
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000010000000000000008000
- 0000008000008080000000008000800080000080800080808000C0C0C000FF00
- 000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00888888888888
- 8888888800008888888888888888888800008888888888888888888800008888
- 8899888888888888000088888988988998888888000088888988989889888888
- 0000888889889898898888880000888888999898898888880000888888889899
- 9888888800008888888890988888888800008888888880888888888800008888
- 8888000888888888000088888888080888888888000088888880080088888888
- 0000888888808880888888880000888888808880888888880000888888808880
- 8888888800008888888888888888888800008888888888888888888800008888
- 88888888888888880000}
- OnClick = CancelClick
- end
- object pause: TToolbarButton97
- Left = 288
- Top = 101
- Width = 73
- Height = 22
- Caption = 'Pause'
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 777777777778087777777777777000777777770000000000000777087FBFBFBF
- 7807777087FBFBF780777777087FBF7807777777087BFB7807777777087FBF78
- 07777777087BFB7807777777087FBF78077777777087F7807777777777087807
- 7777777777700077777777777777777777777777777777777777}
- OnClick = pauseClick
- end
- object Major: TGradProgress
- Left = 8
- Top = 100
- Width = 273
- Height = 13
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Default'
- Font.Style = []
- UseSystemColors = True
- Smooth = False
- RelativeGradient = False
- BevelStyle = bsLowered
- BevelWidth = 1
- StartColor = 2107544
- EndColor = clSilver
- Position = 0
- MaxValue = 100
- Step = 1
- ShowPercent = False
- BackColor = clBtnFace
- end
- object Minor: TGradProgress
- Left = 200
- Top = 116
- Width = 78
- Height = 6
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Default'
- Font.Style = []
- UseSystemColors = True
- Smooth = True
- RelativeGradient = False
- BevelStyle = bsLowered
- BevelWidth = 1
- StartColor = 2107544
- EndColor = clSilver
- Position = 0
- MaxValue = 100
- Step = 1
- ShowPercent = False
- BackColor = clBtnFace
- end
- object LeftFolder: TImage
- Left = 8
- Top = 16
- Width = 41
- Height = 41
- end
- object RightFolder: TImage
- Left = 192
- Top = 16
- Width = 41
- Height = 41
- end
- object Avi: TAnimate
- Left = 48
- Top = 16
- Width = 145
- Height = 41
- Active = False
- StopFrame = 23
- end
- object Timer: TTimer
- Interval = 800
- OnTimer = TimerTimer
- Left = 320
- Top = 40
- end
- object Unzip: TUnzipFile
- OnMajorCallback = UnzipMajorCallback
- OnMinorCallback = UnzipMinorCallback
- OnMessageCallback = UnzipMessageCallback
- lpszFileSpec.PChar = {2A2E2A00}
- IndexofItem = 0
- Options = [QuietFlag, TestFlag, RecurseFlag]
- wUnzipSubOptions = [USO_MINORCANCEL]
- Left = 288
- Top = 40
- end
- end
-